﻿
Partial Class Sistema_InternadosPersonasDetalle
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Request.QueryString("idInternado") = Nothing And String.IsNullOrEmpty(hdIdInternado.Value) Then
            Response.Redirect("Internados.aspx")
        End If
        If Page.IsPostBack = False Then
            If Request.QueryString("idInternado") = Nothing Then
                Response.Redirect("Internados.aspx")
            Else
                hdIdInternado.Value = Request.QueryString("idInternado")
            End If
            If Request.QueryString("idInternadoPersona") = Nothing Then
                hdidInternadoPersona.Value = 0
            Else
                hdidInternadoPersona.Value = Request.QueryString("idInternadoPersona")
            End If
            cargarDatos()
            CargarIndicadores(grdIndicadores)
        End If
    End Sub

    Private Sub cargarDatos()
        Using bd As New BdHogaresDataContext
            Dim a = (From c In bd.Web_internados
                    Where c.idinternado = hdIdInternado.Value
                    Select c.Institucion, c.Municipio.Municipio, c.Municipio.Departamento.Departamento,
                    c.NombreProfesional, fechaDiligenciamiento = String.Format("{0:d}", c.FechaDiligenciamiento), localizacion = (bd.fn_GetNombreOpcion("Ubicacion", c.Localizacion)),
                    c.CodProyecto, c.Vereda, c.Corregimiento, c.Barrio, c.Comuna, c.Direccion
                    ).FirstOrDefault

            'txtFechaDiligenciamiento.Text = a.fechaDiligenciamiento
            lblDepartamento.Text = a.Departamento
            lblMunicipio.Text = a.Municipio
            lblCodProyecto.Text = a.CodProyecto
            txtInstitucion.Text = a.Institucion

            If hdidInternadoPersona.Value <> 0 Then
                Dim b = (From c In bd.Web_internadosPersonas
                       Where c.idInternadoPersona = hdidInternadoPersona.Value
                       Select c).FirstOrDefault
                With b
                    txtCicloEducativo.Text = .CicloEducativo
                    txtCicloVital.Text = .CicloVital
                    TxtConsecutivo.Text = .consecutivopersona
                    txtNoParticipantes.Text = .NoParticipantes
                    txtObservaciones.Text = .observacionesPersona
                End With

            End If

        End Using
    End Sub
   
    Sub CargarIndicadores(ByRef grd As GridView)
        Using bd As New BdHogaresDataContext
            Dim a = From c In bd.Web_internadosIndicadors
                    Select c.Orden, c.indicador, c.idInternadoIndicador, idinternadoPersona = hdidInternadoPersona.Value Order By Orden

            grd.DataSource = a
            grd.DataBind()
        End Using
    End Sub
    Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Response.Redirect("InternadosPersonas.aspx?idinternado=" & hdIdInternado.Value)
    End Sub

    'Protected Sub grdVisitas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles grdVisitas.RowDataBound
    '    If e.Row.RowType = DataControlRowType.DataRow Then
    '        Dim grd As GridView = CType(e.Row.FindControl("grdIndicadores"), GridView)
    '        Dim idinternadovisitaVar = e.Row.DataItem.idinternadovisita ' CType(e.Row.FindControl("hdidinternadovisita"), HiddenField).Value
    '        CargarIndicadores(grd, idinternadovisitaVar)
    '    End If
    'End Sub
End Class
